home *** CD-ROM | disk | FTP | other *** search
/ It's Legal / It's Legal.iso / lglcd.z / IVISION.SMM < prev    next >
Encoding:
INI File  |  1992-08-13  |  1.8 KB  |  157 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [lang]
  14.     1
  15. [desc]
  16.     Interest Vision DDE Macro: make a valid calculation, then select File-Export note/schedule-DDE transmit to copy data.
  17.     
  18.     
  19.     
  20.     
  21.     713736211
  22.     23
  23.     712356011
  24.     0
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [pg]
  52.     1
  53.     23 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  54. [edoc]
  55. <:#278,9360>
  56.  
  57. <:#278,9360>FUNCTION InterestVision()
  58.  
  59.     id = DDEInitiate("IVISION", "TRANSMIT")
  60.  
  61. <:#278,9360>    IF id = 0
  62.  
  63. <:#278,9360>    go = FALSE
  64.  
  65. <:#278,9360>    Exec("IVISION.EXE", 1)
  66.  
  67. <:#278,9360>    FOR I = 1 to 10
  68.  
  69.     id = DDEInitiate("IVISION", "TRANSMIT")
  70.  
  71. <:#278,9360>    IF id <;> 0
  72.  
  73. <:#278,9360>    go = TRUE
  74.  
  75. <:#278,9360>    BREAK
  76.  
  77. <:#278,9360>    ENDIF
  78.  
  79. <:#278,9360>    NEXT
  80.  
  81. <:#278,9360>    IF NOT go
  82.  
  83. <:#278,9360>    Message("Could not initiate a conversation with Interest Vision!")
  84.  
  85. <:#278,9360>    EXIT FUNCTION
  86.  
  87. <:#278,9360>    ENDIF
  88.  
  89. <:#278,9360>    ENDIF
  90.  
  91.     DDEExecute(id, "CLIPBOARD")
  92.  
  93. <:#278,9360>    Paste()
  94.  
  95. <:#278,9360>    DDETerminate(id)
  96.  
  97. <:#278,9360>END FUNCTION
  98.  
  99. <:#278,9360>
  100.  
  101. >
  102.  
  103. [Embedded]
  104. 00001257
  105. >
  106. [macsum] 1
  107. InterestVision 0 0 4 1
  108. [macse]
  109. 14 InterestVision
  110. 0 8 "IVISION" "TRANSMIT"
  111. 13
  112. 8 1
  113. 6 1
  114. 5 0
  115. 18 0
  116. 11 00000399
  117. 5 0
  118. 8 2
  119. 0 22 "IVISION.EXE" 1
  120. 5 1
  121. 8 3
  122. 5 10
  123. 6 3
  124. 18 2
  125. 12 00000201
  126. 10 00000301
  127. 5 1
  128. 6 3
  129. 3 0
  130. 8 3
  131. 10 00000125
  132. 0 8 "IVISION" "TRANSMIT"
  133. 13
  134. 8 1
  135. 6 1
  136. 5 0
  137. 18 3
  138. 11 00000288
  139. 5 1
  140. 8 2
  141. 10 00000301
  142. 10 00000168
  143. 6 2
  144. 1 3
  145. 11 00000399
  146. 0 3 "Could not initiate a conversation with Interest Vision!"
  147. 6 0
  148. 15
  149. 9
  150. 0 11 "{1}" "CLIPBOARD"
  151. 2 155 1
  152. 0 9 "{1}"
  153. 6 0
  154. 15
  155. 9
  156. 00001282
  157.